Análisis de modelos SOM - Frecuencia datos de entrada: mes

Modelo

• ID: 288
• Descripción:
• Frecuencia: mes
• Variables: fecha_cnt, precip, longitud, latitud, altitud
• Dimensiones del mapa: 50,50
• Iteraciones: 10000
• Parámetros adicionales:

source("../../lib/som-utils.R")

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

source("../../lib/maps-utils.R")

Linking to GEOS 3.8.0, GDAL 3.0.4, PROJ 6.3.1

Carga del modelo desde disco

mpr.set_base_path_analysis()
model <- mpr.load_model("som-288.rds.xz")
summary(model)

SOM of size 50x50 with a hexagonal topology and a bubble neighbourhood function.
The number of data layers is 1.
Distance measure(s) used: sumofsquares.
Training data included: 94881 objects.
Mean distance to the closest unit in the map: 0.04.

plot(model, type="changes")

Carga del dataset de entrada

df <- mpr.load_data("datos_mes.csv.xz")

df

summary(df)

 id_estacion           fecha             fecha_cnt           tmax      
 Length:94881       Length:94881       Min.   : 1.000   Min.   :-53.0  
 Class :character   Class :character   1st Qu.: 4.000   1st Qu.:148.0  
 Mode  :character   Mode  :character   Median : 6.000   Median :198.0  
                                       Mean   : 6.497   Mean   :200.2  
                                       3rd Qu.: 9.000   3rd Qu.:255.0  
                                       Max.   :12.000   Max.   :403.0  
      tmin             precip           nevada           prof_nieve      
 Min.   :-121.00   Min.   :  0.00   Min.   :0.000000   Min.   :   0.000  
 1st Qu.:  53.00   1st Qu.:  3.00   1st Qu.:0.000000   1st Qu.:   0.000  
 Median :  98.00   Median : 10.00   Median :0.000000   Median :   0.000  
 Mean   :  98.86   Mean   : 16.25   Mean   :0.000295   Mean   :   0.467  
 3rd Qu.: 148.00   3rd Qu.: 22.00   3rd Qu.:0.000000   3rd Qu.:   0.000  
 Max.   : 254.00   Max.   :422.00   Max.   :6.000000   Max.   :1834.000  
    longitud        latitud            altitud      
 Min.   :27.82   Min.   :-17.8889   Min.   :   1.0  
 1st Qu.:38.28   1st Qu.: -5.6417   1st Qu.:  42.0  
 Median :40.82   Median : -3.4500   Median : 247.0  
 Mean   :39.66   Mean   : -3.4350   Mean   : 418.5  
 3rd Qu.:42.08   3rd Qu.:  0.4914   3rd Qu.: 656.0  
 Max.   :43.57   Max.   :  4.2156   Max.   :2535.0  

Carga de los mapas

world <- ne_countries(scale = "medium", returnclass = "sf")
spain <- subset(world, admin == "Spain")

Mapa de densidad

plot(model, type="count", shape = "straight", palette.name = mpr.degrade.bleu)

Número de elementos en cada celda:

nb <- table(model$unit.classif)
print(nb)

   1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16 
   5   10   17    6   24   20   23   26   38   38   44   36   32   43   50   42 
  17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32 
  37   55   36   18   48   44   38   47   61   33   35   32   36   36   26   18 
  33   34   35   36   37   38   39   41   42   44   45   46   47   48   49   50 
  31   25   43   37   45   24   27   12   16    7   18   45   49  103    6   79 
  51   52   53   54   55   56   57   58   59   60   61   62   63   64   65   66 
   5    8   16   31   24   19   12   26   26   19   36   31   31   33   20   26 
  67   68   69   70   71   72   73   75   76   77   78   79   80   81   82   83 
  52   28   62   53   36   52   27   28   41   38   41   27   29   41   17   21 
  84   85   86   87   88   89   91   92   93   96   97   98   99  100  101  102 
  56   42   63   32   43   39   11   18   52   51   37  100   97   96    8   25 
 103  104  105  106  107  108  109  110  111  112  113  114  115  116  117  118 
  36   13   42   26   37   30   22   23   33   22   38   46   45   45   18   48 
 119  120  121  122  123  124  125  126  127  128  129  130  131  132  133  134 
  56   58   31   32   39   49   42   27   38   44   22   46   16   13   27   30 
 135  136  137  138  140  141  143  144  146  147  148  149  150  151  153  154 
  47   25   43   48   15   41   51   41   73  124   23   58   63   25   44   46 
 155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170 
   9   34   38   31   18   38   37   37   42   29   64   53   25   41   42   65 
 171  172  173  174  175  176  177  178  179  180  181  182  183  184  185  186 
  54   47   43   56   33   48   39   40   50   54   33   20   27   29   60   40 
 187  188  190  191  192  194  195  199  200  201  202  203  204  205  206  207 
  34   24   39   28   32   46   88   45   56   54    2   28   23   23   39   37 
 208  209  210  211  212  213  214  215  216  217  218  219  220  221  222  223 
  28   26   25   23   35   31   25   33   39   26   35   56   53   39   39   32 
 224  225  226  227  228  229  230  231  232  233  234  235  236  237  239  240 
  59   24   42   35   54   58   29   22   36   38   56   45   42   31   22   40 
 241  242  244  245  246  247  249  250  251  252  253  254  255  256  257  258 
  24   49   75   79   69   35   31   21   46   37    4   31   31   18   28   57 
 259  260  261  262  263  264  265  266  267  268  269  270  271  272  273  274 
  22   32   36   21   18   33   39   41   34   42   41   54   52   43   50   45 
 275  276  277  278  279  280  281  282  283  284  285  286  287  289  290  291 
  45   28   45   38   37   49   45   33   29   54   27   34   29   42   19   27 
 292  293  296  297  298  300  301  302  303  304  305  306  307  308  309  310 
  41   48   49   46   34   10   43   11   33   23   33   31   24   54   73   29 
 311  312  313  314  315  316  317  318  319  320  321  322  323  324  325  326 
  27   26    8   18   42   41   53   44   43   43   37   25   57   44   46   38 
 327  328  329  330  331  332  333  334  335  336  338  339  340  341  342  343 
  54   28   72   33   24   42   43   66   59   20   38   31   37   58   55   63 
 344  346  347  348  349  350  351  352  353  354  355  356  357  358  359  360 
  94   44   39   26   18    4   45   14    6   31   38   48   54   39   28   57 
 361  362  363  364  365  366  367  368  369  370  371  372  373  374  375  376 
  36   29   23   19   31   33   44   52   36   37   43   39   44   20   61   59 
 377  378  379  380  381  382  383  384  385  386  387  389  390  391  392  393 
  43   77   97   38   73   38   43   55   43   47   37   42   40   38   55   95 
 394  395  397  398  399  400  401  402  403  404  405  406  407  408  409  410 
  20  101   42   39   32   10   21   22   24   20   16   52   33   34   27   28 
 411  412  413  414  415  416  417  418  419  420  421  422  423  424  425  426 
  25   23   32   24   49   22   16   38   39   31   26   39   68   26   35   52 
 427  428  429  430  431  432  433  434  436  437  439  440  441  443  445  449 
 121   57   68   57   37   41   46   40   30   48   90   15   46  123  101   39 
 450  451  452  453  454  455  456  457  458  459  460  461  462  463  464  465 
  22   26   31   32   27   39   46   37   47   37   28   18   55   29   37   21 
 466  467  468  469  470  471  472  473  474  475  476  477  478  479  481  482 
  35   37   46   62   28   24   66   35   40   48   52   55   23   37   47   34 
 483  484  485  486  487  488  490  492  494  496  497  498  499  500  501  502 
  45   51   39   40   37   58   18   51  130  102   48   86   34   25   22   27 
 503  504  505  506  507  508  509  510  511  512  513  514  515  516  517  518 
  24   31   34   17   32   38   33   29   41   60   38   24   21   48   48   40 
 519  520  521  522  523  524  525  526  527  528  529  530  532  533  534  535 
  26   49   40   43   30   27   34   50   60   22   54   32   54   46   37   44 
 536  537  538  540  542  544  545  547  548  549  550  551  552  553  554  555 
  41   22   77   89   52  132   41   52   32   41   12   24   21   34   40   30 
 556  557  558  559  560  561  562  563  564  565  566  567  568  569  570  571 
  34   35   63   29   44   28   26   52   38   27   44   30   30   46   37   43 
 572  573  574  575  576  577  578  579  580  581  582  583  584  585  586  587 
  42   39   28   48   44   50   58   65   67   43   23   51   43   52   27   32 
 588  589  591  593  595  597  598  599  600  601  602  603  604  605  606  607 
  35  115  110   52   91  128   38   31   57   29   31   39   55   34   26   35 
 608  609  610  611  612  613  614  615  616  617  618  619  620  621  622  623 
  37   31   42   38   42   40   22   27   32   59   35   59   30   35   66   26 
 624  625  626  627  628  629  630  631  633  634  635  636  637  638  642  645 
  27   27   38   50   33   41   23   23   30   32   15   47   35   98  109   51 
 647  648  649  650  651  652  653  654  655  656  657  658  659  660  661  662 
  70   33   38   23   23   33   33   44   43   32   39   27   29   32   37   36 
 663  664  665  666  667  668  669  670  671  672  673  674  675  676  677  678 
  35   59   11   26   41   55   44   64   48   79   27   45   38   46   47   39 
 679  680  681  682  683  684  685  686  687  688  690  691  694  696  697  698 
  35   55   54   24   28   18   31   28   23   36   63  114  111   52   51   65 
 699  700  701  702  703  704  705  706  707  708  709  710  711  712  713  714 
  70   35   55   34   17   30   30   30   33   23   34   30   11   42   37   32 
 715  716  717  718  719  720  722  723  724  725  726  727  728  729  730  731 
  38   38   50   28   48   37   35   51   46   45   45   27   12   17   25   59 
 732  733  734  735  736  738  739  740  742  745  747  748  749  750  751  752 
  30   40   63   49   39   56  118  194  137   55   39   53   51   55   36   45 
 753  754  755  756  757  758  759  760  761  762  763  764  765  766  767  768 
  34   37   30   44   43   46   16   11   25   47   32   31   73   22   44   28 
 769  770  771  772  773  774  775  776  777  778  779  780  782  784  785  786 
  26   59   55   52   35   41   33   26   14   29   60   43   81   82   23   84 
 788  790  792  793  795  796  797  799  800  801  802  803  804  805  806  807 
  73  118   69  117   53   93   95   38   79   81   44   37   56   24   59   29 
 808  809  810  811  812  813  814  815  816  817  818  819  821  822  823  824 
  21   33   43   28   21   39   23   72   22   24   55   90   35   40   43   37 
 825  826  827  828  829  830  832  833  835  837  839  841  842  846  847  848 
  33   21   31   44   41   90   37   50   49   59   48  117   70   17   42   77 
 850  851  852  853  854  855  856  857  858  859  860  861  862  863  864  865 
  42   61   39   35   41   32   34   66   30   36   23   68   50   18   56   35 
 866  867  868  869  871  872  873  874  875  876  877  878  879  880  881  882 
  64   17   14   57   53   19   64   37   68   10   83   43   76   37   67   91 
 883  884  886  888  890  891  892  894  895  899  900  901  902  903  904  905 
  44   95   81  113   49   10   58   44   75   24   78   50   51   48   37   38 
 906  907  908  909  910  911  912  914  915  916  917  918  919  920  921  922 
  33   56   28   37   35   42   48   60   51   71   55   35   48   35   38   44 
 923  924  925  926  927  928  929  930  932  936  939  941  943  945  946  947 
  48   38   58   58   30   32   65   53  141   83  121   46   63   49   30   47 
 951  952  953  954  955  956  957  958  959  960  961  962  963  965  967  969 
  51   60   41   60   42   18   18   53   19   33   19   59   68   52   57   32 
 970  971  972  973  974  975  976  977  978  979  981  982  985  987  989  991 
  38   46   52   42   32   33   36   63   27   62   17   38  121   64   80   87 
 992  994  995  996  997  998  999 1000 1001 1002 1003 1004 1005 1006 1007 1008 
  48   66   45   33   53   63   13   45   38   25   59   45   48   44   43   13 
1009 1010 1011 1012 1013 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 
  26   26   29   39   73   49   47   42   31   42   35   30   36   33   37   53 
1026 1027 1028 1030 1031 1033 1035 1036 1037 1039 1040 1041 1042 1043 1044 1045 
  29   42   52   52   36  160   49   80   28   73   35  153   86   25   43   39 
1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 
  23   39   63   52   77   35   20   41   36   30   59   46   31   45   42   41 
1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 
  33   65   60   23   37   85   27   50   42   50   40   21   49   26   55   38 
1078 1080 1081 1082 1084 1085 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 
  55   50   44   51   21  123   39   16   13   22   92   90   60   31   36   50 
1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 
  49   54   53   42   50   42   42   55   43   64   52   46   65   51   44   35 
1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 
  56   37   22   50   55   29   38   71   30   39   47   23   62   52   37   13 
1129 1132 1133 1135 1136 1137 1138 1140 1142 1143 1144 1145 1146 1147 1148 1149 
  54  124   41   90  117   53   53   54   81   48   51   51   44   76   65   42 
1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 
  58   67   82   44   49   78   70   60   51   53   41   37   42   48   45   51 
1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 
  28   54   79   44   29   36   22   20   43   31   34   31   33   32   68   33 
1183 1184 1185 1186 1188 1189 1191 1192 1194 1195 1196 1197 1198 1199 1200 1202 
  88   33   75   43   82   30   48   60   37   30   44   35   49   43   37   45 
1204 1205 1206 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 
  36   76   60   19   22   34   54   66   40   43   27   48   71   26   30   30 
1222 1223 1224 1225 1226 1227 1229 1230 1231 1232 1233 1234 1236 1237 1239 1240 
  27   31   40   26   32   40   21   30   45   73   55   73   33  100   44   67 
1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1257 1258 
  51   32   58   25   31   60   71   60   66   49   99   81   59   88   96  101 
1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 
  65   37   35   29   29   66   38   65   32   47   39   37   37   19   33   35 
1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1288 1289 1291 1292 
  43   21   48   58   36   40   50   54   47   32   56   66   77   88   43   32 
1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1307 1309 1310 1311 
  42   33   37   68   64   73   29  124   71   38   76  141  113   40   30   39 
1312 1313 1314 1315 1316 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 
  55   25   64   48   42   29   37   35   26   14   32   29   21   28   40   24 
1329 1330 1331 1332 1333 1334 1335 1336 1337 1339 1341 1342 1343 1344 1345 1346 
  47   37   45   60   50   48   59   65   41   12   55   39   27   38   26   26 
1347 1348 1349 1350 1351 1352 1353 1354 1355 1358 1359 1360 1361 1362 1363 1364 
  69   58   24   38   60   70   83   42  105  154   52   39   53   25   30   22 
1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 
  30   40   47   56   39   44   39   15   16   18   36   26   50   56   48   41 
1381 1382 1383 1384 1385 1386 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 
  35   43   43   35   51   68   51   85   29   47   45   16   28   24   34   25 
1398 1399 1400 1401 1402 1403 1404 1405 1406 1408 1409 1410 1411 1412 1413 1414 
  37   51   25   80   84  106   77   45  114   85   59   86   24   19   27   35 
1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 
  46   38   29   29   18   36   29   29   37   45   38   20   61   49   45   60 
1431 1432 1433 1434 1435 1436 1437 1438 1440 1441 1443 1444 1445 1446 1447 1448 
  22   66   51   37   29   42   37   33   37   53   43   37   17   16   26   53 
1449 1450 1451 1452 1453 1454 1455 1456 1457 1459 1460 1461 1462 1463 1464 1465 
  38   14   59   74   81   55   38   86  140   72   86   24   25   30   18   27 
1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 
  34   36   59   58   14   29   23   32   31   33   23   27   42   30   35   15 
1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 
  30   32   41   25   34   53   71   30   95   68   29   65   31   22   21   23 
1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 
  14   39   55   49   58   45   16   18   26   61   86   59   37   80   45   55 
1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 
  58   29   14   13   11   19   24   13   11   14   36   46   35   34   46   24 
1530 1531 1532 1533 1534 1535 1536 1537 1538 1541 1542 1543 1544 1545 1546 1547 
  42   39   37   23   33   35   41   56   47  111    8   39   27   34   27   29 
1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1560 1561 1562 1563 1564 1565 
  38   38   38   54   47   14   26   31   37   47   29   31  113   90   32   18 
1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 
  32   45   27   23   14   19   24   18   32   45   26   29   36   54   36   30 
1582 1583 1584 1585 1586 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 
  27   35   34   32   44   44   32   68   17   74   50   57   33   47   40   31 
1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 
  32   53   17   27   56   25   30   34   66   93   61   41   49   40   30   38 
1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 
  30   35   25   25   18   26   28   16   23   52   46   33   33   24   36   22 
1631 1632 1633 1634 1635 1636 1637 1639 1640 1641 1642 1643 1644 1645 1646 1647 
  33   21   29   34   31   28   46   43   57   32   38   48   82   79   27   20 
1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1659 1660 1661 1662 1663 1664 
  25   38   40   28   46   24   24   26   38   31   13   34   35   37   40   48 
1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 
  62   25   19   33   14   38   12   29   48   28   26   29   45   33   42   44 
1681 1682 1683 1684 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 
  23   39   31   42   24   36   53   68   45   38   36   29   60   59   55   38 
1698 1699 1700 1701 1702 1703 1704 1705 1706 1708 1709 1710 1711 1712 1713 1714 
  25   24   19   28   61   61   41   41   12  127   67   68   33   41   31   38 
1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 
  30   27   50   36   39   29   31   35   35   27   27   13   44   26   34   52 
1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 
  25   20   55   19   37   31   13   33   48   39   21   40   29   42   25   38 
1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1762 1763 1764 1765 
  37   32   19   43   58   40   51   72   34   59  121    2   51   37   48   38 
1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 
  52   40   27   47   54   47   48   60   52   31   27   26   35   30   30   28 
1782 1783 1784 1785 1786 1787 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 
  59   21   43   25   36   37   51   40   29   55   40   37   31   41   22   15 
1799 1800 1801 1802 1803 1804 1805 1808 1809 1810 1811 1812 1813 1814 1815 1816 
   4   27   42   55   35   29   23  123   89   52   52   31   42   68   77   60 
1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 
  12   57   48   50   42   32   32   24   16   24   31   50   30   34   46   41 
1833 1834 1835 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 
  28   11   61   53   52   31   26   29   49   50   32   39   19   26   19   43 
1850 1851 1853 1854 1855 1856 1857 1859 1860 1861 1863 1864 1865 1866 1867 1869 
  39   59   68   70   72   67  102   28   34   36   49   54   63   89   22   22 
1870 1871 1872 1873 1874 1875 1876 1877 1879 1880 1881 1882 1883 1884 1885 1886 
  52   36   46   35   46   66   12    9   11   23   46   26   55   25   36   33 
1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 
  66   30   28   44   32   52   35   44   31   30   25   26   12   39   92   61 
1904 1905 1906 1908 1909 1911 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 
  41   43   34   49   45  110   48   42   55   50   47   51   58   41   26   48 
1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 
  51   57   57   70   72   57   40   25   49   29   57   43   44   48   21   42 
1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 
  41   37   18   36   32   34   15   32   34   20   37   52   74   49   81   46 
1955 1956 1957 1958 1959 1960 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 
  37   46   53   66   54   62   20   29   51   47   65   38   46   37   46   43 
1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 
  57   23   33   17   35   45   32   59   39    9   27   56   62   43   42   39 
1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 
  33   42   43   31   16   26   31   35   30   36   18   28   44    8   11   66 
2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 
  25   66   60   80   34   30   26   44   29   37   48   70   29   22   46   51 
2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2032 2033 2034 2035 2036 2037 
  25   34   53   46   25   54   44   28   29   48   27   33   50   42   53   24 
2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 
  58   39   44   42   35   32   39   19   28   32    8   35   45   32   60   38 
2054 2055 2056 2057 2058 2059 2060 2062 2063 2064 2065 2066 2067 2068 2069 2070 
  44   11   48   42   61   51   51   35   44   49   61   35   41   33   38   53 
2071 2072 2073 2075 2076 2077 2078 2079 2080 2081 2084 2085 2086 2087 2088 2089 
  52   71   43   56   41   51   21   51   46   67   48    6    7   17   22   47 
2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103 2104 2105 
  37   28   23   21   16   32   22   18   12   20   36   33   44   40   44   29 
2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 
  43   45   33   43   81   47   40   27   18   47   43   45   26   33   35   49 
2122 2123 2124 2125 2126 2127 2129 2130 2132 2134 2135 2136 2137 2138 2139 2140 
  51   32   60   37   60   58   87   67   85   32   31   30   47   38   37   17 
2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2157 
  23   55   24   19   15   27   16   10   33   48   33   65   51   39   32   51 
2158 2159 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 
  50   66   67   36   33   25   22   29   17   36   22   40   40   39   64   25 
2174 2175 2176 2177 2178 2179 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 
  32   54   49   83   46   16   42   87   43   13   31   52   67   48   18   14 
2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2209 
  40   30   20   17   27   17   12   11   11   27   29   33   41   22   35   35 
2210 2211 2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 
  44   63   30   16   40   34   23   21   17   24   41   37   21   32   41   54 
2226 2228 2229 2230 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 
  58   39   82   84   73   51   43   23   44   31   46   19   39   40   20   42 
2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 
  33    3   15   28   10   27   28   34   27   13   22   21   16   41  105   48 
2262 2264 2265 2266 2267 2270 2271 2272 2273 2274 2275 2277 2278 2279 2281 2283 
  26   24   25   22   15   20   27   56   39   45   30   55   72   59   62   35 
2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 
  31   34   26   54   33   47   54   49   28   29   23   27   36   11   26   11 
2300 2301 2302 2303 2304 2305 2306 2308 2309 2310 2311 2312 2313 2314 2315 2316 
  18   20   17   16   15   36   25   81   55   60   26   27   37   32   23   12 
2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2331 2332 2333 
  19   28   36   22   23   33   40   30   55   92   81   82   52   53   35   26 
2334 2335 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 
  46   47   24   29   26   67   61   35   38   39   28   26   36   30   13    5 
2350 2351 2352 2353 2354 2355 2356 2357 2358 2360 2361 2362 2363 2364 2365 2366 
   9    6   12   53   58   24   41   38   45   23   35   31   34   27   16   25 
2367 2368 2369 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2383 2384 
  41   25   28   26   39   42   45   39   48   32   36   53   18   23   33   40 
2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 
  46   36   16   20   26   53   38   36   18   19   14   15   11   28   17    5 
2401 2402 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 
  20   39   49   56   53   32   44   30   44   44   45   30   42   43   45   37 
2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2430 2432 2433 2434 2435 
  24   19   10   18   20   31   29   31   31   29   34   49   29   47   43   37 
2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 
  33   31    9   21   17   18   52   48   50   40   40   21   24   33   18   11 
2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 
  16   31   55   38   89   74   42   44   38   46   38   18   54   46   48   46 
2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 
  34   20   10    7   15   14   15   25   39   68   61   52   30   48   36   50 
2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496 2497 2498 2499 
  48   41   41   49   44   46   26   43   36   51   54   27   35   47   23   40 
2500 
  22 

Comprobación de nodos vacíos:

dim_model <- 50*50;
len_nb = length(nb);
empty_nodes <- dim_model != len_nb;
if (empty_nodes) {
  print(paste("[Warning] Existen nodos vacíos: ", len_nb, "/", dim_model))
}

[1] "[Warning] Existen nodos vacíos:  2289 / 2500"

Mapa de distancia entre vecinos

plot(model, type="dist.neighbours", shape = "straight")

Influencia de las variables

model_colnames = c("fecha_cnt", "precip", "longitud", "latitud", "altitud")
model_ncol = length(model_colnames)

Mapa de variables.

plot(model, shape = "straight")

Mapa de calor por variable

par(mfrow=c(3,4))
for (j in 1:model_ncol) {
  plot(model, type="property", property=getCodes(model,1)[,j],
    palette.name=mpr.coolBlueHotRed,
    main=model_colnames[j],
    cex=0.5, shape = "straight")
}

Correlación para cada columna del vector de nodos

if (!empty_nodes) {
  cor <- apply(getCodes(model,1), 2, mpr.weighted.correlation, w=nb, som=model)
  print(cor)
}

Representación de cada variable en un mapa de factores:

if (!empty_nodes) {
  par(mfrow=c(1,1))
  plot(cor[1,], cor[2,], xlim=c(-1,1), ylim=c(-1,1), type="n")
  lines(c(-1,1),c(0,0))
  lines(c(0,0),c(-1,1))
  text(cor[1,], cor[2,], labels=model_colnames, cex=0.75)
  symbols(0,0,circles=1,inches=F,add=T)
}

Importancia de cada variable - varianza ponderada por el tamaño de la celda:

if (!empty_nodes) {
  sigma2 <- sqrt(apply(getCodes(model,1),2,function(x,effectif)
     {m<-sum(effectif*(x-weighted.mean(x,effectif))^2)/(sum(effectif)-1)},
     effectif=nb))
  print(sort(sigma2,decreasing=T))
}

Clustering

if (!empty_nodes) {
  hac <- mpr.hac(model, nb)
}

Visualización de 3 clústeres:

if (!empty_nodes) {
  plot(hac, hang=-1, labels=F)
  rect.hclust(hac, k=3)
}

Visualización de los clústers en el mapa

A qué clúster pertenece cada nodo del mapa de kohonen:

if (!empty_nodes) {
  groups <- cutree(hac, k=3)
  plot(model, type="mapping",
    bgcol=c("steelblue1","sienna1","yellowgreen","red","blue","yellow","purple","green","white","#1f77b4", '#ff7f0e', '#2ca02c', '#d62728', '#9467bd', '#8c564b', '#e377c2')[groups],
    shape = "straight", labels = "")
  add.cluster.boundaries(model, clustering=groups)
}

Análisis de las observaciones de cada cluster

if (!empty_nodes) {
  # Asignamos a cada registro su clúster
  df$cluster <- groups[model$unit.classif]
}

Nuevos dataframes por cluster

if (!empty_nodes) {
  # Creo nuevos dataframes, uno por cada clúster.
  df.cluster01 <- subset(df, cluster==1)
  df.cluster02 <- subset(df, cluster==2)
  df.cluster03 <- subset(df, cluster==3)

  # Extraigo del dataframe las features.
  df.cluster01 <- select(df.cluster01, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster02 <- select(df.cluster02, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster03 <- select(df.cluster03, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
}

if (!empty_nodes) summary(df.cluster01)
if (!empty_nodes) summary(df.cluster02)
if (!empty_nodes) summary(df.cluster03)

Número de elementos en cada clúster

if (!empty_nodes) {
  df.clusters.dim <- c(dim(df.cluster01)[1], dim(df.cluster02)[1], dim(df.cluster03)[1])
  barplot(df.clusters.dim,
          names.arg = c("cluster01", "cluster02", "cluster03"),
          col = "steelblue1")
}

Distribución de los datos

if (!empty_nodes) mpr.hist(df.cluster01)
if (!empty_nodes) mpr.hist(df.cluster02)
if (!empty_nodes) mpr.hist(df.cluster03)

if (!empty_nodes) mpr.boxplot(df.cluster01)
if (!empty_nodes) mpr.boxplot(df.cluster02)
if (!empty_nodes) mpr.boxplot(df.cluster03)

Localización geográfica de las estaciones de medida de cada cluster

# Agrupa por longitud y latitud para rellenar el mapa con menos datos.
if (!empty_nodes) {
  df.cluster01.grouped <- mpr.group_by_geo(df.cluster01)
  df.cluster02.grouped <- mpr.group_by_geo(df.cluster02)
  df.cluster03.grouped <- mpr.group_by_geo(df.cluster03)
}

if (!empty_nodes) mpr.draw_map(spain, df.cluster01.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster02.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster03.grouped)

Visualización de 4 clústeres:

if (!empty_nodes) {
  plot(hac, hang=-1, labels=F)
  rect.hclust(hac, k=4)
}

Visualización de los clústers en el mapa

A qué clúster pertenece cada nodo del mapa de kohonen:

if (!empty_nodes) {
  groups <- cutree(hac, k=4)
  plot(model, type="mapping",
    bgcol=c("steelblue1","sienna1","yellowgreen","red","blue","yellow","purple","green","white","#1f77b4", '#ff7f0e', '#2ca02c', '#d62728', '#9467bd', '#8c564b', '#e377c2')[groups],
    shape = "straight", labels = "")
  add.cluster.boundaries(model, clustering=groups)
}

Análisis de las observaciones de cada cluster

if (!empty_nodes) {
  # Asignamos a cada registro su clúster
  df$cluster <- groups[model$unit.classif]
}

Nuevos dataframes por cluster

if (!empty_nodes) {
  # Creo nuevos dataframes, uno por cada clúster.
  df.cluster01 <- subset(df, cluster==1)
  df.cluster02 <- subset(df, cluster==2)
  df.cluster03 <- subset(df, cluster==3)
  df.cluster04 <- subset(df, cluster==4)

  # Extraigo del dataframe las features.
  df.cluster01 <- select(df.cluster01, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster02 <- select(df.cluster02, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster03 <- select(df.cluster03, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster04 <- select(df.cluster04, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
}

if (!empty_nodes) summary(df.cluster01)
if (!empty_nodes) summary(df.cluster02)
if (!empty_nodes) summary(df.cluster03)
if (!empty_nodes) summary(df.cluster04)

Número de elementos en cada clúster

if (!empty_nodes) {
  df.clusters.dim <- c(dim(df.cluster01)[1], dim(df.cluster02)[1], dim(df.cluster03)[1], dim(df.cluster04)[1])
  barplot(df.clusters.dim,
          names.arg = c("cluster01", "cluster02", "cluster03", "cluster04"),
          col = "steelblue1")
}

Distribución de los datos

if (!empty_nodes) mpr.hist(df.cluster01)
if (!empty_nodes) mpr.hist(df.cluster02)
if (!empty_nodes) mpr.hist(df.cluster03)
if (!empty_nodes) mpr.hist(df.cluster04)

if (!empty_nodes) mpr.boxplot(df.cluster01)
if (!empty_nodes) mpr.boxplot(df.cluster02)
if (!empty_nodes) mpr.boxplot(df.cluster03)
if (!empty_nodes) mpr.boxplot(df.cluster04)

Localización geográfica de las estaciones de medida de cada cluster

# Agrupa por longitud y latitud para rellenar el mapa con menos datos.
if (!empty_nodes) {
  df.cluster01.grouped <- mpr.group_by_geo(df.cluster01)
  df.cluster02.grouped <- mpr.group_by_geo(df.cluster02)
  df.cluster03.grouped <- mpr.group_by_geo(df.cluster03)
  df.cluster04.grouped <- mpr.group_by_geo(df.cluster04)
}

if (!empty_nodes) mpr.draw_map(spain, df.cluster01.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster02.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster03.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster04.grouped)

Visualización de 5 clústeres:

if (!empty_nodes) {
  plot(hac, hang=-1, labels=F)
  rect.hclust(hac, k=5)
}

Visualización de los clústers en el mapa

A qué clúster pertenece cada nodo del mapa de kohonen:

if (!empty_nodes) {
  groups <- cutree(hac, k=5)
  plot(model, type="mapping",
    bgcol=c("steelblue1","sienna1","yellowgreen","red","blue","yellow","purple","green","white","#1f77b4", '#ff7f0e', '#2ca02c', '#d62728', '#9467bd', '#8c564b', '#e377c2')[groups],
    shape = "straight", labels = "")
  add.cluster.boundaries(model, clustering=groups)
}

Análisis de las observaciones de cada cluster

if (!empty_nodes) {
  # Asignamos a cada registro su clúster
  df$cluster <- groups[model$unit.classif]
}

Nuevos dataframes por cluster

if (!empty_nodes) {
  # Creo nuevos dataframes, uno por cada clúster.
  df.cluster01 <- subset(df, cluster==1)
  df.cluster02 <- subset(df, cluster==2)
  df.cluster03 <- subset(df, cluster==3)
  df.cluster04 <- subset(df, cluster==4)
  df.cluster05 <- subset(df, cluster==5)

  # Extraigo del dataframe las features.
  df.cluster01 <- select(df.cluster01, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster02 <- select(df.cluster02, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster03 <- select(df.cluster03, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster04 <- select(df.cluster04, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster05 <- select(df.cluster05, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
}

if (!empty_nodes) summary(df.cluster01)
if (!empty_nodes) summary(df.cluster02)
if (!empty_nodes) summary(df.cluster03)
if (!empty_nodes) summary(df.cluster04)
if (!empty_nodes) summary(df.cluster05)

Número de elementos en cada clúster

if (!empty_nodes) {
  df.clusters.dim <- c(dim(df.cluster01)[1], dim(df.cluster02)[1], dim(df.cluster03)[1], dim(df.cluster04)[1], dim(df.cluster05)[1])
  barplot(df.clusters.dim,
          names.arg = c("cluster01", "cluster02", "cluster03", "cluster04", "cluster05"),
          col = "steelblue1")
}

Distribución de los datos

if (!empty_nodes) mpr.hist(df.cluster01)
if (!empty_nodes) mpr.hist(df.cluster02)
if (!empty_nodes) mpr.hist(df.cluster03)
if (!empty_nodes) mpr.hist(df.cluster04)
if (!empty_nodes) mpr.hist(df.cluster05)

if (!empty_nodes) mpr.boxplot(df.cluster01)
if (!empty_nodes) mpr.boxplot(df.cluster02)
if (!empty_nodes) mpr.boxplot(df.cluster03)
if (!empty_nodes) mpr.boxplot(df.cluster04)
if (!empty_nodes) mpr.boxplot(df.cluster05)

Localización geográfica de las estaciones de medida de cada cluster

# Agrupa por longitud y latitud para rellenar el mapa con menos datos.
if (!empty_nodes) {
  df.cluster01.grouped <- mpr.group_by_geo(df.cluster01)
  df.cluster02.grouped <- mpr.group_by_geo(df.cluster02)
  df.cluster03.grouped <- mpr.group_by_geo(df.cluster03)
  df.cluster04.grouped <- mpr.group_by_geo(df.cluster04)
  df.cluster05.grouped <- mpr.group_by_geo(df.cluster05)
}

if (!empty_nodes) mpr.draw_map(spain, df.cluster01.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster02.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster03.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster04.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster05.grouped)

Visualización de 6 clústeres:

if (!empty_nodes) {
  plot(hac, hang=-1, labels=F)
  rect.hclust(hac, k=6)
}

Visualización de los clústers en el mapa

A qué clúster pertenece cada nodo del mapa de kohonen:

if (!empty_nodes) {
  groups <- cutree(hac, k=6)
  plot(model, type="mapping",
    bgcol=c("steelblue1","sienna1","yellowgreen","red","blue","yellow","purple","green","white","#1f77b4", '#ff7f0e', '#2ca02c', '#d62728', '#9467bd', '#8c564b', '#e377c2')[groups],
    shape = "straight", labels = "")
  add.cluster.boundaries(model, clustering=groups)
}

Análisis de las observaciones de cada cluster

if (!empty_nodes) {
  # Asignamos a cada registro su clúster
  df$cluster <- groups[model$unit.classif]
}

Nuevos dataframes por cluster

if (!empty_nodes) {
  # Creo nuevos dataframes, uno por cada clúster.
  df.cluster01 <- subset(df, cluster==1)
  df.cluster02 <- subset(df, cluster==2)
  df.cluster03 <- subset(df, cluster==3)
  df.cluster04 <- subset(df, cluster==4)
  df.cluster05 <- subset(df, cluster==5)
  df.cluster06 <- subset(df, cluster==6)

  # Extraigo del dataframe las features.
  df.cluster01 <- select(df.cluster01, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster02 <- select(df.cluster02, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster03 <- select(df.cluster03, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster04 <- select(df.cluster04, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster05 <- select(df.cluster05, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster06 <- select(df.cluster06, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
}

if (!empty_nodes) summary(df.cluster01)
if (!empty_nodes) summary(df.cluster02)
if (!empty_nodes) summary(df.cluster03)
if (!empty_nodes) summary(df.cluster04)
if (!empty_nodes) summary(df.cluster05)
if (!empty_nodes) summary(df.cluster06)

Número de elementos en cada clúster

if (!empty_nodes) {
  df.clusters.dim <- c(dim(df.cluster01)[1], dim(df.cluster02)[1], dim(df.cluster03)[1], dim(df.cluster04)[1], dim(df.cluster05)[1], dim(df.cluster06)[1])
  barplot(df.clusters.dim,
          names.arg = c("cluster01", "cluster02", "cluster03", "cluster04", "cluster05", "cluster06"),
          col = "steelblue1")
}

Distribución de los datos

if (!empty_nodes) mpr.hist(df.cluster01)
if (!empty_nodes) mpr.hist(df.cluster02)
if (!empty_nodes) mpr.hist(df.cluster03)
if (!empty_nodes) mpr.hist(df.cluster04)
if (!empty_nodes) mpr.hist(df.cluster05)
if (!empty_nodes) mpr.hist(df.cluster06)

if (!empty_nodes) mpr.boxplot(df.cluster01)
if (!empty_nodes) mpr.boxplot(df.cluster02)
if (!empty_nodes) mpr.boxplot(df.cluster03)
if (!empty_nodes) mpr.boxplot(df.cluster04)
if (!empty_nodes) mpr.boxplot(df.cluster05)
if (!empty_nodes) mpr.boxplot(df.cluster06)

Localización geográfica de las estaciones de medida de cada cluster

# Agrupa por longitud y latitud para rellenar el mapa con menos datos.
if (!empty_nodes) {
  df.cluster01.grouped <- mpr.group_by_geo(df.cluster01)
  df.cluster02.grouped <- mpr.group_by_geo(df.cluster02)
  df.cluster03.grouped <- mpr.group_by_geo(df.cluster03)
  df.cluster04.grouped <- mpr.group_by_geo(df.cluster04)
  df.cluster05.grouped <- mpr.group_by_geo(df.cluster05)
  df.cluster06.grouped <- mpr.group_by_geo(df.cluster06)
}

if (!empty_nodes) mpr.draw_map(spain, df.cluster01.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster02.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster03.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster04.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster05.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster06.grouped)

Visualización de 8 clústeres:

if (!empty_nodes) {
  plot(hac, hang=-1, labels=F)
  rect.hclust(hac, k=8)
}

Visualización de los clústers en el mapa

A qué clúster pertenece cada nodo del mapa de kohonen:

if (!empty_nodes) {
  groups <- cutree(hac, k=8)
  plot(model, type="mapping",
    bgcol=c("steelblue1","sienna1","yellowgreen","red","blue","yellow","purple","green","white","#1f77b4", '#ff7f0e', '#2ca02c', '#d62728', '#9467bd', '#8c564b', '#e377c2')[groups],
    shape = "straight", labels = "")
  add.cluster.boundaries(model, clustering=groups)
}

Análisis de las observaciones de cada cluster

if (!empty_nodes) {
  # Asignamos a cada registro su clúster
  df$cluster <- groups[model$unit.classif]
}

Nuevos dataframes por cluster

if (!empty_nodes) {
  # Creo nuevos dataframes, uno por cada clúster.
  df.cluster01 <- subset(df, cluster==1)
  df.cluster02 <- subset(df, cluster==2)
  df.cluster03 <- subset(df, cluster==3)
  df.cluster04 <- subset(df, cluster==4)
  df.cluster05 <- subset(df, cluster==5)
  df.cluster06 <- subset(df, cluster==6)
  df.cluster07 <- subset(df, cluster==7)
  df.cluster08 <- subset(df, cluster==8)

  # Extraigo del dataframe las features.
  df.cluster01 <- select(df.cluster01, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster02 <- select(df.cluster02, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster03 <- select(df.cluster03, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster04 <- select(df.cluster04, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster05 <- select(df.cluster05, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster06 <- select(df.cluster06, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster07 <- select(df.cluster07, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster08 <- select(df.cluster08, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
}

if (!empty_nodes) summary(df.cluster01)
if (!empty_nodes) summary(df.cluster02)
if (!empty_nodes) summary(df.cluster03)
if (!empty_nodes) summary(df.cluster04)
if (!empty_nodes) summary(df.cluster05)
if (!empty_nodes) summary(df.cluster06)
if (!empty_nodes) summary(df.cluster07)
if (!empty_nodes) summary(df.cluster08)

Número de elementos en cada clúster

if (!empty_nodes) {
  df.clusters.dim <- c(dim(df.cluster01)[1], dim(df.cluster02)[1], dim(df.cluster03)[1], dim(df.cluster04)[1], dim(df.cluster05)[1], dim(df.cluster06)[1], dim(df.cluster07)[1], dim(df.cluster08)[1])
  barplot(df.clusters.dim,
          names.arg = c("cluster01", "cluster02", "cluster03", "cluster04", "cluster05", "cluster06", "cluster07", "cluster08"),
          col = "steelblue1")
}

Distribución de los datos

if (!empty_nodes) mpr.hist(df.cluster01)
if (!empty_nodes) mpr.hist(df.cluster02)
if (!empty_nodes) mpr.hist(df.cluster03)
if (!empty_nodes) mpr.hist(df.cluster04)
if (!empty_nodes) mpr.hist(df.cluster05)
if (!empty_nodes) mpr.hist(df.cluster06)
if (!empty_nodes) mpr.hist(df.cluster07)
if (!empty_nodes) mpr.hist(df.cluster08)

if (!empty_nodes) mpr.boxplot(df.cluster01)
if (!empty_nodes) mpr.boxplot(df.cluster02)
if (!empty_nodes) mpr.boxplot(df.cluster03)
if (!empty_nodes) mpr.boxplot(df.cluster04)
if (!empty_nodes) mpr.boxplot(df.cluster05)
if (!empty_nodes) mpr.boxplot(df.cluster06)
if (!empty_nodes) mpr.boxplot(df.cluster07)
if (!empty_nodes) mpr.boxplot(df.cluster08)

Localización geográfica de las estaciones de medida de cada cluster

# Agrupa por longitud y latitud para rellenar el mapa con menos datos.
if (!empty_nodes) {
  df.cluster01.grouped <- mpr.group_by_geo(df.cluster01)
  df.cluster02.grouped <- mpr.group_by_geo(df.cluster02)
  df.cluster03.grouped <- mpr.group_by_geo(df.cluster03)
  df.cluster04.grouped <- mpr.group_by_geo(df.cluster04)
  df.cluster05.grouped <- mpr.group_by_geo(df.cluster05)
  df.cluster06.grouped <- mpr.group_by_geo(df.cluster06)
  df.cluster07.grouped <- mpr.group_by_geo(df.cluster07)
  df.cluster08.grouped <- mpr.group_by_geo(df.cluster08)
}

if (!empty_nodes) mpr.draw_map(spain, df.cluster01.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster02.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster03.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster04.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster05.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster06.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster07.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster08.grouped)

Visualización de 10 clústeres:

if (!empty_nodes) {
  plot(hac, hang=-1, labels=F)
  rect.hclust(hac, k=10)
}

Visualización de los clústers en el mapa

A qué clúster pertenece cada nodo del mapa de kohonen:

if (!empty_nodes) {
  groups <- cutree(hac, k=10)
  plot(model, type="mapping",
    bgcol=c("steelblue1","sienna1","yellowgreen","red","blue","yellow","purple","green","white","#1f77b4", '#ff7f0e', '#2ca02c', '#d62728', '#9467bd', '#8c564b', '#e377c2')[groups],
    shape = "straight", labels = "")
  add.cluster.boundaries(model, clustering=groups)
}

Análisis de las observaciones de cada cluster

if (!empty_nodes) {
  # Asignamos a cada registro su clúster
  df$cluster <- groups[model$unit.classif]
}

Nuevos dataframes por cluster

if (!empty_nodes) {
  # Creo nuevos dataframes, uno por cada clúster.
  df.cluster01 <- subset(df, cluster==1)
  df.cluster02 <- subset(df, cluster==2)
  df.cluster03 <- subset(df, cluster==3)
  df.cluster04 <- subset(df, cluster==4)
  df.cluster05 <- subset(df, cluster==5)
  df.cluster06 <- subset(df, cluster==6)
  df.cluster07 <- subset(df, cluster==7)
  df.cluster08 <- subset(df, cluster==8)
  df.cluster09 <- subset(df, cluster==9)
  df.cluster10 <- subset(df, cluster==10)

  # Extraigo del dataframe las features.
  df.cluster01 <- select(df.cluster01, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster02 <- select(df.cluster02, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster03 <- select(df.cluster03, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster04 <- select(df.cluster04, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster05 <- select(df.cluster05, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster06 <- select(df.cluster06, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster07 <- select(df.cluster07, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster08 <- select(df.cluster08, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster09 <- select(df.cluster09, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
  df.cluster10 <- select(df.cluster10, fecha_cnt, tmax, tmin, precip, nevada, prof_nieve, longitud, latitud, altitud)
}

if (!empty_nodes) summary(df.cluster01)
if (!empty_nodes) summary(df.cluster02)
if (!empty_nodes) summary(df.cluster03)
if (!empty_nodes) summary(df.cluster04)
if (!empty_nodes) summary(df.cluster05)
if (!empty_nodes) summary(df.cluster06)
if (!empty_nodes) summary(df.cluster07)
if (!empty_nodes) summary(df.cluster08)
if (!empty_nodes) summary(df.cluster09)
if (!empty_nodes) summary(df.cluster10)

Número de elementos en cada clúster

if (!empty_nodes) {
  df.clusters.dim <- c(dim(df.cluster01)[1], dim(df.cluster02)[1], dim(df.cluster03)[1], dim(df.cluster04)[1], dim(df.cluster05)[1], dim(df.cluster06)[1], dim(df.cluster07)[1], dim(df.cluster08)[1], dim(df.cluster09)[1], dim(df.cluster10)[1])
  barplot(df.clusters.dim,
          names.arg = c("cluster01", "cluster02", "cluster03", "cluster04", "cluster05", "cluster06", "cluster07", "cluster08", "cluster09", "cluster10"),
          col = "steelblue1")
}

Distribución de los datos

if (!empty_nodes) mpr.hist(df.cluster01)
if (!empty_nodes) mpr.hist(df.cluster02)
if (!empty_nodes) mpr.hist(df.cluster03)
if (!empty_nodes) mpr.hist(df.cluster04)
if (!empty_nodes) mpr.hist(df.cluster05)
if (!empty_nodes) mpr.hist(df.cluster06)
if (!empty_nodes) mpr.hist(df.cluster07)
if (!empty_nodes) mpr.hist(df.cluster08)
if (!empty_nodes) mpr.hist(df.cluster09)
if (!empty_nodes) mpr.hist(df.cluster10)

if (!empty_nodes) mpr.boxplot(df.cluster01)
if (!empty_nodes) mpr.boxplot(df.cluster02)
if (!empty_nodes) mpr.boxplot(df.cluster03)
if (!empty_nodes) mpr.boxplot(df.cluster04)
if (!empty_nodes) mpr.boxplot(df.cluster05)
if (!empty_nodes) mpr.boxplot(df.cluster06)
if (!empty_nodes) mpr.boxplot(df.cluster07)
if (!empty_nodes) mpr.boxplot(df.cluster08)
if (!empty_nodes) mpr.boxplot(df.cluster09)
if (!empty_nodes) mpr.boxplot(df.cluster10)

Localización geográfica de las estaciones de medida de cada cluster

# Agrupa por longitud y latitud para rellenar el mapa con menos datos.
if (!empty_nodes) {
  df.cluster01.grouped <- mpr.group_by_geo(df.cluster01)
  df.cluster02.grouped <- mpr.group_by_geo(df.cluster02)
  df.cluster03.grouped <- mpr.group_by_geo(df.cluster03)
  df.cluster04.grouped <- mpr.group_by_geo(df.cluster04)
  df.cluster05.grouped <- mpr.group_by_geo(df.cluster05)
  df.cluster06.grouped <- mpr.group_by_geo(df.cluster06)
  df.cluster07.grouped <- mpr.group_by_geo(df.cluster07)
  df.cluster08.grouped <- mpr.group_by_geo(df.cluster08)
  df.cluster09.grouped <- mpr.group_by_geo(df.cluster09)
  df.cluster10.grouped <- mpr.group_by_geo(df.cluster10)
}

if (!empty_nodes) mpr.draw_map(spain, df.cluster01.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster02.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster03.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster04.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster05.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster06.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster07.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster08.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster09.grouped)
if (!empty_nodes) mpr.draw_map(spain, df.cluster10.grouped)